home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / TORPET.d64 / blinking prompt (.txt) < prev    next >
Commodore BASIC  |  2009-10-12  |  198b  |  8 lines
  1. 10 PRINT"[147]"
  2. 20 PRINTTAB(3)"THIS IS A TEST":FORG=1 TO 1000:NEXT
  3. 30 GET A$:IF A$="" THEN PRINT"[147]    PRESS RETURN"
  4. 40 IF A$=CHR$(13) THEN GOTO 70
  5. 50 FOR T=1 TO 400:NEXT:PRINT"    [145]PRESS RETURN[146]"
  6. 60 FOR T=1 TO 200:NEXT:GOTO 30
  7. 70 PRINT"IT WORKS"
  8.